home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nktools.zip / TEST.PAS < prev   
Pascal/Delphi Source File  |  1991-02-11  |  991b  |  28 lines
  1. program test;
  2. uses
  3.     Crt,Logger,EndWait,ErrMsg;
  4.     (* NOTE: the CRT unit *must* be listed before the LOGGER unit *)
  5.     (*       (This is to assure that the LOGGER unit has control  *)
  6.     (*        over the standard input and output file variables.  *)
  7.     (*        If you reverse the ordering, the LOGGER unit won't  *)
  8.     (*        function at all, since CRT yanks control away from  *)
  9.     (*        LOGGER and goes around it).  The same rule applies  *)
  10.     (*       to anything that may reassign the standard input and *)
  11.     (*       output file variables.                               *)
  12. var
  13.     Name    : String;
  14.     age        : Integer;
  15. begin
  16.     ClrScr;
  17.     Window(10,10,35,20);
  18.     WriteLn;
  19.     Write('What is your name ? ');
  20.     ReadLn(Name);
  21.     WriteLn('Hello ',Name,', nice to meet you.');
  22.     WriteLn;
  23.     Write('How old are you ',Name,' ?');
  24.     ReadLn(age);
  25.     WriteLn;
  26.     WriteLn('So, your name is ',Name,' and you are ',age,' years old')
  27. end.
  28.